home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / c64demo.dir / 00121.ls < prev    next >
Encoding:
Text File  |  1995-12-07  |  651 b   |  34 lines
  1. global gNext
  2.  
  3. on mouseDown
  4.   puppetSound("ReturnB")
  5.   puppetSprite(13, 1)
  6.   set the castNum of sprite 23 to 119
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 15
  10.     nothing()
  11.   end repeat
  12.   set the castNum of sprite 23 to 120
  13.   updateStage()
  14.   startTimer()
  15.   repeat while the timer < 15
  16.     nothing()
  17.   end repeat
  18.   set the castNum of sprite 23 to 119
  19.   updateStage()
  20.   startTimer()
  21.   repeat while the timer < 15
  22.     nothing()
  23.   end repeat
  24.   set the castNum of sprite 23 to 120
  25.   updateStage()
  26.   puppetSprite(13, 0)
  27.   startTimer()
  28.   repeat while the timer < 30
  29.     nothing()
  30.   end repeat
  31.   set gNext to "none fade"
  32.   go("more return")
  33. end
  34.